home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib15.dsk / TEXT FORMATTER (SHORT VERSION).bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  38 lines
  1. 10  REM  **********************
  2. 11  REM  * TEXT FORMATTER     *
  3. 12  REM  * SHORT VERSION      *
  4. 13  REM  * BY R. SCOTT SMITH  *
  5. 14  REM  * COPYRIGHT (C) 1983 *
  6. 15  REM  * BY MICROSPARC, INC *
  7. 16  REM  * LINCOLN, MA. 01773 *
  8. 17  REM  **********************
  9. 20  REM 
  10. 30  REM 
  11. 40  REM  MC= MAXIMUM NO. OF COLUMNS OF PRINTER MODE
  12. 50  REM  NC= NO. OF COLUMNS TO BE  PRINTED
  13. 60  REM 
  14. 90  GOTO 1000: REM  START OF PROGRAM
  15. 100  REM  PRINT FORMATTER SUB-ROUTINE
  16. 110  IF NC = 0  THEN NC = 40:MC = 40
  17. 120  IF MC <NC  THEN MC = MC +40: GOTO 120
  18. 130 LM =  INT((MC -NC)/2) +1
  19. 140  IF  LEFT$(A$,1) = " "  THEN A$ =  MID$ (A$,2): GOTO 140
  20. 150  IF  LEN(A$) < = NC  THEN 210
  21. 160 Y$ = A$
  22. 170  FOR J1 = NC +1 TO 1  STEP  -1: IF  MID$ (Y$,J1,1) = " "  THEN 190
  23. 180  NEXT :J1 = NC +1
  24. 190 A$ =  LEFT$(Y$,J1 -1): GOSUB 210: IF J1 >0  THEN A$ =  MID$ (Y$,J1)
  25. 200  GOTO 140
  26. 210  HTAB LM: PRINT A$;
  27. 220  IF  LEN(A$) < >MC  THEN  PRINT 
  28. 230 A$ = "": RETURN 
  29. 1000  REM  SAMPLE PROGRAM FOR SHORT VERSION OF TEXT FORMATTER
  30. 1010  HOME : VTAB 3
  31. 1020 A$ = "TEST SHORT VERSION OF TEXT FORMATTER.": GOSUB 100: PRINT 
  32. 1030 A$ = "MAKE YOUR ENTRY AT LEAST TWO LINES LONG TO SEE HOW THE SHORT VERSION OF TEXT FORMATTER WORKS.": GOSUB 100: PRINT 
  33. 1040  INPUT "ENTRY: ";Q$
  34. 1050  HOME : VTAB 3:A$ = "HERE IS YOUR ENTRY AT FORTY COLUMNS WIDTH.": GOSUB 100: PRINT 
  35. 1060 A$ = Q$: GOSUB 100: PRINT 
  36. 1070  INPUT "ENTER ANOTHER PRINT WIDTH: ";NC: PRINT 
  37. 1080  GOTO 1060
  38. 1090  END